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TTTTTTTTT? RRRRRRRR UU UU NN NN CCCCCCCC : ¢ 
TTTTTTTTTT RRRRRRRR UU UU NN NN cccccccc 
TT RR RR UU UU NN NN CC 
TT RR RR UU UU NN NN CC 
TT RR RR UU UU NNNN NN CC 
TT RR UU UU NNNN NN CC 
TT RRRRRRRR UU UU NN NN NN CC 
TT RRRRRRRR UU UU NN WN NN CC 
TT RR RR UU NN NNNN CC 
TT RR RR UU UU NN NNNN CC 
TT RR RR UU UU NN NN CC neh 
TT RR RR UU NN NN CC ae 
TT RR RR UUUUUU NN NN CCCCCCCC sand 
TT RR RR UUUUUUUUUU NN NN cccccccc nae 
LL IIIIII SSSSSSSS 
LL III SSSSSSSS 
LL II SS 
LL II Ss 
LL I] Ss 
LL I] ss 
LL I] SSSSSS 
LL I] SSSSSS 
LL II 
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LL I] 
LL II 
LLLLLLLLLL III1II SSSSSSSS 
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5 1 001 MODULE TRUNC ( 

if BEG. BLESS 

3 = 'v04- 

3 4 004 = 

3 5 005 BEGIN 

3 $ BR8 1 

; 007 1! 

8 : 944 } ‘ieee haiti intial ata 
4 i® - 
; 19 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY + 
: 11 0011 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ‘ 
3 ig pote ! :* ALL RIGHTS RESERVED. * 
Py 4 * 
: 14 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 15 0015 1 !* ONLY IN ACCORDANCE WITH THE MS OF SUCH LICENSE AND WITH THE * 
3 16 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 17 0017 1 !* COPIES THEREOF MAY NOT PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i 384 : :* TRANSFERRED. * 
P :* * 
; 5 $054 1 !® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 ; 00 $ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; si 8 ; ! ie CORPORATION. * 
‘® ® 
i on 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; $$ + $ ! » SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; ; * 
3 28 0028 1 !« * 
3 50 5 34 1 Lee RRR REAR AREA 
3 0 1 

3 1 $031 1 44 

3 32 itT4 1! 

3 $2 0033 1 ! FACILITY: F11ACP Structure Level 1 

3 & 0034 1! 

3 35 0035 1 ! ABSTRACT: 

3 36 0036 1! 

3 4 5 44 : This routine truncates a file by deallocating the indicated blocks. 

3 39 0039 1 ! ENVIRONMENT: 

; 40 0040 1! 

: 641 0041 1! STARLET operating system, including privileged system services 

; 64 Be§ 1! and internal exec routines. 

3 4 904 Ez 

3 44 sg: 1 !e= 

s 65 45 1! 

:; 646 Boeg 1! 

; rts st ' AUTHOR: Andrew C. Goldstein, CREATION DATE: 21-Mar-1977 10:41 

s 69 §029 1 ! MODIFIED BY: 

; 50 0050 1! 

: 51 051 1! v03-002 ACG0287 Andrew C. Goldstein, 14-Apr-1982 17:18 

5 6 036 : Check for index file ID in header rather than FCB 

3 az 054 1! v03-001 LMP0023 L. Mark Pilant, _  ?wApr=-1982 16:45 

3; 35 055 1! Give a privilege violation if attempting to truncate the 

; 2$ 828 ' index file (INDEXF.SYS). 
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; é 2 v02=-003 ACG35898 Andrew folgstein, 11-Mar-1981 16:31 
; Update HIBLK in primar y ti header 

: g 1 i v02-002 AcG0167 Andrew C. Goldstein 7- — “1980 18:52 
3 ? : oF Previous revision history moved to F11A.REV 

: 64 i= 

~ a ass i LIBRARY ‘SYSSLIBRARY:LIB.L32' 

: &9 itd 1 REQUIRE 'SRC$:FCPDEF Bot p 

3 68 ¢ 1 

; 9 83 1 

; 0 84 1 FORWARD ROUTINE 

: 71 0385 1 TRUNCAT : NOVALUE, ' truncate file 

; 2 0386 1 TRUNCATE_HEADER : NOVALUE; ! truncate individual file header 
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14-Sep-19 


GLOBAL ROUTINE TRUNCATE (FIB, FILE HEADER, DEALLOCATE) : NOVALUE = 


'e4 


FUNCTIONAL DESCRIPTION: 


This routine truncates a file to the size indicated in the FIB by 
dealiocating the necessary blocks. The erase flag controls whether 
the retrieval pointers are erased in the header. The deallocate flag 
centrece whether or not the blocks are actually returned to the 
storage map. 


CALLING SEQUENCE: 
TRUNCATE (ARG1, ARG2, ARG3) 


INPUT PARAMETERS: 
ARG1: address of FIB for operation 
ARG2: address of file header 
ARGS: = 1 to return space to storage map 
= 0 to just clean out header 


IMPLICIT INPUTS: 
CURRENT_VCB: VCB of volume 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
storage bitmap altered 
file header altered 


BEGIN 

MAP 
FIB : REF BBLOCK, ' FIB for operation 
FILE_HEADER : REF BBLOCK; ! file header 

LOCAL 

REF BBLOCK, ' FCB of current file header 

HEADER : REF BBLOCK, ' address of current file header 
NEW_HEADER : REF BBLOCK, ! address of extension file header 
MAP_AREA : REF BBLOCK, ! file header map area 
MAP_POINTER REF BBLOCK, ! pointer to scan map 
MAP_COUNT, ! retrieval ge sier count 
VBN, ' relative VBN of operation 
COUNT : count of blocks returned 
EXT FID : BBLOCK CFIDS$C_LENGTH], ! file ID of extension header 
EX_SEGNUM, ' segment number of ext header 
REREAD, ! flag to reread primary header 
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REREAD2; 


LABEL 
DO_ TRUNCATE, 
VBR_LOOP; 


EXTERNAL 
CLEANUP_FLAGS 
USER_STATUS 
CURRENT_VCB 
PRIMARY_FCB 


EXTERNAL ROUTINE 
PMS_START_SUB, 
PMS“END_ SOB, 


CHECRSUM, 
NEXT HEADER 
UPDATE FILESIZE, 


a 
- 
@ 


DEL EX 
DELETE_FILE; 
Start metering for this subfunction. 


PMS_START_SUB (PMS_ALLOC); 


1 
1 


3 
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flag to update primary header 


main truncate operation body 
main loop to scan for starting VBN 


anup action i 
status block of user 
of volume 
rs) 


start subfunction metering 
end subfunction metering 
search FCB List for FCB 
mark buffer for write-back 
checksum file header 

read next extension header 
update file size in primary FCB 
initialize FCB 

write file header 

read file header 

delete extension FCB's 
delete remainder of file 


! Establish the basic pointers. Round up the starting VBN to the next cluster 
boundary and adjust it to a zero start. The block count must be zero (default). 


HEADER = .FILE_HEADER; 
FCB = .PRIMARY FCB; 


Check for the index file INDEXF.SYS 


IF .HEADERCFH1$W_FID_NUM) EQL FIDSC_INDEXF 
AND .HEADERCFH1$W-FID-SEQ) EQL FIDSC_INDEXF 
THEN ERR_EXIT (SSS$_NOPRIV); 


VBN = ((.FIBCFIBSL_EXVBN) - 1 + 


CURRENT _VCB[VCB$W_CLUSTER] - 1) 


/ .CURRENT_VCBCVCBSW_CLUSTERJ) ® .CURRENT-VCBLVCBS$W_CLUSTER); 
IF .FIBCFIBSL_EXSZ) NEQ 0 THEN ERR_EXIT (SS$_BADPARAM); 


Init the user's return parameters. 


USER_STATUS(1) = .VBN + 1 = .FIBCFIBSL_EXVBN); 
FJepr ies. _exvend = .VBN + 1; 
FIBCFIBSL~EXSZ) = 0; 
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REREAD = 0; 


4 scan Ene file headers for the retrieval pointer centetoing the starting 
the VBN is off the end of file, report the error; if it coincides, 
i + “steenten is a noop. 
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cate 1 DO 
BEGIN 
MAP_AREA = HEADER + :HEADERCEHTSB MPOFFSETJ*2; 


MAP-POINTER = .MAP_A AREA + FM1$C_POINTERS; 
MAP-COUNT = .MAP AREACFM1$8_ INUSES 4é: 


WHILE .MAP_COUNT GTR 0 DO 
BEGIN 


COUNT = .MAP POINTERTFN|$B COUNT) + 1; 
IF - COUNT GTRU .VBN THEN LEAVE VBN * LOOP: 
VBN = .VBN = .COUN 

MAP_POINTER = .MAP POINTER + 4; 

AP” COUNT = .MAP_COUN : 


We have scanned through an entire header. Chain to the next header if it 
exists. First check for the boundary condition of starting the truncate 
at the header boundary to avoid leaving an empty header. 


IF .VBN EQL 0 
THEN 
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BEGIN | 
LF MAP _AREALFMISW EX FILNUM] EQL 0 


Hest ~EXIT (SS$_ENDOF FILE) 
! end of VBN_LOOP 


! We are now poteetes at the retrieval pointer in which the truncation starts. 
i Clean out the rest of this header. If there are extension headers, use 
i the delete routine to dispose of them. Also flush extension FCB's, if they 
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; 
; 
; 
5 
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7 THEN LEAVE DO_TRUNTATE ' truncate coincides with EOF 
; : ty LEAVE VBR_ (OOP. ' dump the extension headers 
540 
541 NEW_FEADER = NEXT_HEADER (.HEADER, .FCB); 
3 : I zNEW. HEADER EQC 0 THEN EXITLOOP; 
3 4 HEADER = EW. HEADER; 
5 $ IF .FCB NEQ 9 
5 THEN FCB = .FCBCFCBSL EXECB) 
548 ELSE IF SEARCH FCB (HEADER FH su. FID]) NEQ 0 
549 THEN ERR_EXIT TSS$_ACCONFLICT) 
; ? END; ! end of header scan loop 
5 
228 
554 
3 5 
335 
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-FIBCFIBSL_EXVBN] = 1); 


! Update the HIBLK fiel 
size. 


he record attributes to reflect the new file 


IF NOT .REREAD 
THEN BBLOCK CHEADERCFHISW_RECATTRJ, FATSL_HIBLK] = ROT (.FIBCFIBSL_EXVBNIJ-1, 16); 


; MARK_DIRTY (. HEADER); 3 
3 CLEANUP_FLAGSCCLF_FIXFCB) = _1; 3 
3 CLEANUP_FLAGSCCLF_INVWINDOW) = 1; 3 
; 64 3 CLEANUPFLAGSCCLF-CLEANTRUNG] = { ; 
3 ILESIZE, i 
3 dint | 
; é ; 
3 7 3 
3 2 7 ; 
$ 60 057 3 
3; 261 057 TRUNCATE_HEADER (.FIB, .HEADER, :DEALLOCATE, -MAP_POINTER, .VBN); ; 
: 6¢ 0 7 X_SEGNUM = .MAP_AREACFM1$B8 EX SEGNUM) + 1; ; 
3 € 7 EXT_FIDCFIDSW_NUM] = .MAP_AREACFM1$W_EX_FILNUM); ; 
: 264 057 EXT-FIDCFIDSW_SEQ) = ,MAP_AREALFM1$W_EX FILSEQ); : 
; 265 0578 EXT_FIDLFIDSW = 0; : 
: 266 0579 MAP_AREA rR $0_Ex_FILNUR) = 0; : 
3 of 8380 MAP_AREALFM1SW_EX_FILSEQ) = 0; | : 
: 269 038¢ If .FCB NEQ 0 AND .FCB NEQ .PRIMARY FCB 3 
3 £0 028? THEN KERNEL_CALL (INIT_FCB, .FCB, .READER); ; 
: 27 0585 CHECKSUM (.HEADER); 3 
3: 27 0586 WRITE_HEADER (); : 
; 74 0587 3 
3 275 0588 REREAD2 = .REREAD; 3 
3: 276 0589 4 IF .DEALLOCATE AND (.EXT_FIDCFIDSW_NUM] NEQ 0) 3 
3 77 0590 3 THEN 3 
; 278 0591 4 BEGIN : 
; 279 059¢ 4 REREAD = 1; | 
: 280 0593 4 HEADER = NEXT_HEADER (0, .FCB, EXT_FID, .EX_SEGNUM); : 
; 281 0594 4 KERNEL_CALL (DEL_EXTFCB, .FCB); | : 
3 og 0595 4 DELETE_FILE (.FIB, .HEADER); | 3 
3 8 0596 END; 3 
3 284 0597 ; 
3 + 343 END; ! end of block DO_TRUNCATE : 
; 287 0600 ! If this was a truncate of a multi-header file, reread the prteor header : 
3 88 01 ! and update the HIBLK field in the record attributes to reflect the new file . 
; 289 3 ' size. 3 
5 90 0 ' 3 
; 291 0604 : 
: 9 605 If REREAD | 3 
: 3 606 THEN HEADER = READ_HEADER (FIBCFIBSW_FIDJ, .PRIMARY_FCB); : 
: 295 60 IF .REREAD2 : 
: 296 8 THEN 3 
3 97 10 BEGIN F 
3; 298 611 BBLOCK CHEADERCFH1$W_RECATIR], FATSL_HIBLK) = ROT (.FIBCFIBSL_EXVBN]-1, 16); 2 
: 299 13 MARK_DIRTY (HEADER); 3 
3 00 1 END; 3 
; 301 0614 3 


£ 5 
TRUN 16-Sep-1984 01: VAX=-11 Bliss-32 V4.0-742 Page 7. 
v04 14-Sep attri 93: 39:34 DI sk KSVMSMASTER:CF11A.SRCJTRUNC.B32;1 . (2) | 
| 
; 08 oF ' §t teri f thi bf i 
H 4 op metering of this subfunction | 
: 304 13 : 7 
; 305 
; 8S 3h 4 PMS_END_SUB (); 
; 
; 308 best END; ! end of routine TRUNCATE 
TITLE TRUNC 
IDENT \Vv04-000\ 
~EXTRN CLEANUP _ FLAGS USER STATUS 
-EXTRN CURRENT-VCB, PRIMARY. FCB 
-EXTRN PMS_START_SUB, PRs END_SuB 
-EXTRN SEARCH_FCB, TRTY 
~EXTRN CHECKSOM, NEXT HEADER 
*EXTRN UPDATE FILESI 
EXTRN FtB, WAIT HEADER 
EXTRN READ “HEADER , DEC_EXTFCB 
EXTRN DELETE_FILE, SYSSCMKRNL 
-PSECT $CODE$,NOWRT,2 
-ENTRY UN ave R3,R4,R5,R6,R7,RB,RI,R10,=; 
OFFC 00000 ENTR TRL CATE, S R2,R3,R4,R5, 7,R8,R9,R10,-; 0387 
Vv aasy KRNL, R ; 
38 000000006 oF 4 90002 HOVAR aes S$cm R 11 
08 DD 0000C PUSHL #8 + 0474 
00006 cf 01 FB 0000 CALLS #1, PMS_START_SUB : 
5 08 AC dO 0001 MOVL FILE HEADER, READER ; 0480 
56 00006 CF 00 9001 MOVL PRIMARY PA : 0481 
01 02 AS B81 0001C CMPW SCHEADER) : 0486 
09 le 90020 BNEQ 1$ : 
01 04 AS B1 00022 CMPW 4(HEADER), #1 : 0487 
03 12 00026 BNEQ 1$ : 
24 BF 00028 CHMU #36 ; 0488 
04 B80 A RET 3 
51 04 AC DO 00028 18 MOVL FIB, R1 : 0490 
50 00906 CF b0 968 F MOVL CURRENT_VCB, RO : | 
52 C AO 3C 00034 MOVZWL 60(RO),~R2 : 
28 ic Al 9 0038 ADDL 28(R1), Re : 
¢ 0 ¢ 003¢ UBL #2, R2 : 
3 3c 0O AOC 09 F MOVZWL 60(RO), R3 > 0491 
2 5 £6 43 IvL2 R3, Re : 
54 3C Ad C 00046 MOVZWL 60(RO), VBN F 
54 52 C4 OO04A MULL2 R2, VBN : 
18 Al 8 0040 TSTL gg (Rt) : 0493 
03 (1 0 BEQL $ 3 
14 BF 0 CHMU #20 : 
4 0 RET : 
50 046 aC b9 0055 2$: MOVL Fie RO : 0498 
54 1c AO 0059 SUBL3 28(RO), , RI : 
0000G CF ot Al 9E 0005€ MOVAB 1(R1), USER STATUS +4 : 
1¢ =—A0 1 A& YE 00064 MOVAB 1(R4) RO) 3 0499 | 
18 Ag D4 00069 CLRL 24 ROS : 0500 
59 D4 0006C CLRL REREAD ; 0501 


3 
16- Sep-1 VAX-11 Bliss-32 V4.0-742 e 8 i 
1 et 7 9}: $0: 4 DISKSVMSMASTER:CF11A.SRCJTRUNC.B32;1 tens (2) ve 
01 AS 9A 3$: MOVZBL (HEADER) , RO : 0515 : 
6540 3€ MOVAW HEADER) LR Ol, MAP_AREA : ; 
A Ae 9F OVAB 10(R2), MAP_POINTER : 516, : 
8 Ad 9A OOO7A MOVZBL 8(MAP_ARE AD MAP. COUNT : 0517) : 
0 6 fe DIVL ae. MAP_C : ; 
15 1 081 4$: BLEG = § : 0519. : 
57 01 A aA 0 3 MOVZBL 1 (MAP POINTER), COUNT > 0521) : 
54 35 Be BOteS CMPL sgn VBN + 0522. ; 
49 1A 0008C BoTR : ; 
54 57 C2 0008E SUBL2 COUNT, VBN + 0523 ; 
53 94 ¢ 091 ADDL2 #4, MAP_POINTER : 0504 ; 
8 D 94 DECL  MAP_COURT + 0525 : 
£9 11 096 BRB 4$ : 0519 ; 
4 05 00098 5s: TSTL §-VBN : 0533 ; 
08 12 0009A BNEG  6$ : ; 
02 A2 B 999¢ TSTW vr AREA) : 0536 ; 
36 12 0009F BNEQ : ; 
0009 ; 00A1 BRW 12$ + 0537 : 
7E 55 7D OOOA4 6$ MOVQ HEADER, =(SP) + 0541 ; 
00006 CF 02 FB O00A7 CALLS #2, NEXT_HEADER : ; 
SA 50 00 OOAC MOVL RO, NEW READER : 3 
1 13 OOOAF BEQL «= 8B + 054 : 
59 1 00 90081 MOVL #1, REREAD + 054 : 
55 A 00 00084 MOVL § NEW_HEADER, HEADER > 0544 ; 
56 D3 00087 TSTL FCB” : 0546 ; 
06 13 00089 BEQL «86 7$ : : 
56 0c Aé6é DO 000BB MOVL "SRoscah FCB : 0547 ; 
AD 11 OO00BF BRB 3 : : 
02 aS 9F 000C1 7$ PUSHAB 2(HEADER) : 0548 F 
00006 CF 01 FB 000C4 CALLS #1, SEARCH_FCB : ; 
50 05 000C9 TSTL RO : : 
Al 1 0008 BEQL 3$ : : 
0800 8F BF 000CD CHMU #2048 : 0549 ; 
04 90001 RET : ; 
0870 8F BF 00002 8$: CHMU #2160 : 0552 3 
04 00006 RET : : 
55 DD 00007 9$: PUSHL > 0561 : 
00006 CF 01 FB 00009 CALLS #1, MARK_DIRTY : ; 
0000G CF 00080012 BF Cc O0DE BISL2 #524306, ~CLEANUP_FLAGS > 0564 ; 
57 04 ac 00 OOE MOVL FIB, R : 0565 : 
58 1c (A? gi C3 OOOE UBL3 #1, 28(R7), RB : : 
8 DD OOOF PUSHL R8 : ; 
gi DD OOOF PUSHL #1 : : 
E DD OOOF PUSHL SP : : 
0000G CF 9F 000F6 PUSHAB UPDATE FILESIZE : : 
68 4 FB OOFA CALLS #4, SYSSCMK ; : 
05 9 E OOFD LBS REREAD fos" : 0571 : 
12. AS 58 19 C 9190 ROTL #16. ne 18 (HEADER) : 0572 : 
18 BB 00105 108: PUSHR 3,R4> : 0574 : 
0c AC DD 1 7 PUSHL DEALLOCATE : : 
55 DD 0010A PUSHL ADER ; : 
57 0d 0010C PUSHL R ; : 
0000v cf 0S FB 10 CALLS #5 TRUNCATE HEADER ; : 
3 $ 9a 0011 MOVZBL che A , EX_SEGNUM : 0575 : 
D6 116 INCL cas ; : 
6E 02 A2 00 0011 MOVL tape OAREA) , EXT_FID : 0576 : 


TRUN 
v04 


; Routine Size: 


7E 


431 bytes, 


00006 


00006 


00006 
04 

00006 
1¢ 


00006 
00006 


Routine Base: 


CF 


® 


OO NPI PF> —OF 
an COCOoOMM™ }oeA — Tn" 


1 

1 

BAS BL ait 
> Be 122 

16 1 124 

56 D 126 

F 13 00128 

5 DD 4 Dd 

DD O01¢F 

FB Bee 
0000G CF oF 3) 3 
Ob Si 

1 FB 001 

0 fe 014 
9 dO 00148 

oc ac €9 gise 
SH Be 
01 DO 00153 

53 DD 00156 
04 AE 9F 00158 
56 DD 00158 
7E 04 00150 

04 FB FH 

50 DO 00164 
a 

Be DD 00188 
0000G CF 9F 0016D 
04 FB 00171 

55 DD 00174 
Be 

8 ES 0017 
0000G CF DD 00180 
oH Sie 

fi D0 001 8¢ 

52 £9 00191 

04 AC DO 00194 
01 C35 00198 

2 i ais 

3% PB OO1AG 

00 FB 001A9 

04 OO1AE 


SCODES + 0000 


or 


118: 


12$: 


—_ 
Ww 
ad 


— 
+ 
Ta 


RER 
DEA 


a, 
FCB 


#1 


SP 
DEL_E 


#6, 
HEA 


*i, 
#0, 


We 
REREA 
P 


FID+4 
KP_AREA) 


- PRIMARY_FCB 
DER 


EAD, REREAD 
LLOCATE, 12$ 


P) 
NEXT_HEADER 
HEADER 


_EXTFCB 
SYSSCMKRNL 
DER 
DELETE_FILE 
EAD, 18s 


MARK_DIRTY 
PMS_END_SUB 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER:CF11A.SRC 


*28(RO0), RO 
#16, RO, 18(HEADER) 
HEADER 


Pa 
JTRUNC .B32;1 


Se Se Sete Se Se Be Se Be Se Ge Be Se Ge Be Se Se Se Be Be Be Se Be Se Se Be Be Be Se Be Ge Be Se Fe Fe Fe Fe Fe Fe Se Fe Be Ge Be Se Be Se 


0594 


0595 


0605 
0606 


0608 
0611 
0612 | 


0619 
0621 


es 


Be ee Se Se Se Ge Se Ge Se Se Se Se Se Se Ge Ge Se Se Se Se Ge Se Se Se Ge Se Ge Se Ge Se Fe Se Se Se ee Se Se Se Se Se Ft FH Se SH Se Se Se See Se Se Seas Se Be Seas 


3 
1b-se 1984 01:20:14 VAX=11 Bliss-32 V4.0-742 P 
14-Sep-19 4 73:39:43 DISKSVMSMASTER:CF11A.SRCJTRUNC.B32; 1 fast ( 


GLOBAL ROUTINE TRUNCATE _HEADER (FIB, HEADER, DEALLOCATE, POINTER, LAST_COUNT) : NOVALUE = 


w— 
-oO 


‘ee 
! 
FUNCTIONAL DESCRIPTION: 


This routine returns the indicated retrieval pointers in the given 
file header to the storage map and erases them in the file header. 


CALLING SEQUENCE: 
TRUNCATE_HEADER (ARG1, ARG2, ARG3, ARG4, ARGS) 


INPUT PARAMETERS: 
ARG1: address c’ +IB of operation 
ARG2: address file header 
ARGS: = 1 tc turn space to the storage map 
0 tu just erase the retrieval pointers 


BNOVUVESWN "OO ONOUS WN Oo 


RMNNNNNININ 3 3 


= 
ARGS: address of first retrieval pointer to process, if present 


PERLLRLSSSSSSSSSSSSSISIS OSES 


WIN OOO NAUE WN 9 ODN NE WWN OOD NOAM EW O OONOUE WT 


3 1 

3 1 

; 1 

3 1 

: | 

3 1 

; 1 

; 1 

; 1 

; 1 

; 1 

$ 1 

3 1 

; 1 

3 1 

3 1 

; 1 

. : 

3 $3 : ARGS: new count field of first pointer, if present 

3 1 1 IMPLICIT INPUTS: 

3 ¢ : NONE 

; 1 OUTPUT PARAMETERS: 

3 HH : NONE 

: * ’ wate wiatces: 

: 339 be 1 

: 340 0652 1 ! ROUTINE VALUE: 

3 1 06535 1 NONE 

; ¢ 0654 1 

: 065 1 SIDE EFFECTS: 

3 4 0656 1 file header altered, storage map altered 

; 0659 1 

3 : bee BEGIN 

; 350 066 MAP 

; «351 066 FIB : REF BBLOCK, ! user FIB 

3 26 Ro68 HEADER : REF BBLOCK; ! file header 

; 382 bee 5 LOCAL 

3 See bee MAP_AREA : REF BBLOCK, ! address of file header map area 
3 2$ 668 MAP_POINTER : REF BBLOCK, ‘! pointer to map pointers 

3; 35 9 MAP_END, ' address of end of map area 

; 358 0 COURT, ' count field of current retrieval pointer 
; 359 71 LBN ' LBN field of current retrieval pointer 
3 ; RP_COUNT; ! new count field for retrieval pointer 
: § 674 EXTERNAL ROUTINE 

3 or RETURN_BLOCKS; ! return blocks to storage map 

; 67 

3 678 ! Establish pointers into the file header. If explicit args are supplied, use 
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. 
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7 
o 
7 
Oo 
. 
2 
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° 


at 


IRSA LB8IS DNWRAAHERZ TR EBo rnc seus 


; $79 them; else default to releasing the entire file header. 

: 681 | 

; 6 ; MAP_AREA = .HEADER + .HEADER FH ISB MPOFFSETI #2; 

; MAP-POINTER = .MAP_AREA + FMI$C_P OIN TERS: 

; 6 ‘ Whats = AP. POINTER + .MAP_AREALFM1$B.INUSEJ®2; | 

: 6 $ IF ACTUALCOUNT GEQ 4 

3 8 THEN 

3 689 BEGIN 

: 690 RAP POINTER = - POINTER: | 

3 91 P_COUNT = LAST_ COUNT; 

: i les 

; re Now scan the map area, cleaning out pointers and releasing blocks. 

: 069 

; 069 UNTIL .MAP_POINTER GEQA .MAP_END DO 

: 0698 BEGIN 

; 0699 COUNT = .MAP_POINTERCFM1$B COUNT +1; 

3 0700 LBN = .MAP _POINTER FM1$W_LOWLBN 

; 0701 LBN<16,8> = .MAP_P OINTERTEN1 SB "WIGHLBND; 

3 070 IF .RP_COUNT NEQ ->° 

; 070 THEN 

; 704 MAP_POINTERLFM1$B_COUNT] = .RP_COUNT - 1 

3 705 ELSE 

3 0706 4 IN 

; 0707 4 MAP_POINTERCFM1$B_HIGHLBN] = 0; 

; 0708 4 MAP~POINTERLFM1$B~COUNT) = 0; 

: 0709 4 MAP-POINTER FMI SW LOWLBN) = 6; 

3 0710 4 MAP_AREACFM1$8_INOSEJ = .MAP _AREACFM1$B_ INUSE) = 2; 

3 +4 or ; END; 

: 4601 ak IF .DEALLOCATE THEN RETURN BLOCKS (.LBN + .RP_COUNT, «fount - .RP_COUNT); 

; 408 Ore 3 FefF IBS. L_EXSZ] = .FIBCFIBSL_EXSZ) + .COUNT =". RP_COUN 

: 404 0716 3 MAP “POINTER = .MAP_POINTER + 4; 

; 405 0717 § END; 

: 606 0718 

: 0719 +1 ! end of routine TRUNCATE_HEADER 
| 
| 


.EXTRN RETURN_BLOCKS 


O1FC 00000 .ENTRY TRUNCATE_HEADER, Save R2,R3.R4.R5,R6,R7,.R8 ; 0622 

51 08 aC D0 00002 MOVL HEADER, Ri : 0682 
30 01 Al 9A 00006 MOVZBL 1(R1), RO ; 
53 6140 3€ OOD0A MOVAW (RI Hoge MAP_AREA F 

52 OA Ad FE O00E MOVAB 10(R3), MAP -PO NTER + 0683 

50 08 A 2A 001 MOVZBL 8(MAP_AREA)> + 0684 
58 6240 ; 16 VAW (MAP "POINTER CRON, MAP_END ; 

56 p 1A CLRL = RP_COUN : 0685 

04 6¢ 1 0001C¢ CMPB RAPS. rH : 0687 
8 1F OOO1F BLSSU. -1$ ; 

52 10 Ac 00 00021 MOVL POINTER, MAP_POINTER + 0690 


Be Se Se Be Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Fe Ge Se Se Be Se 


1 -1984 :20: VAX-11 Bliss-32 V4.0-742 P 
1 - 382 93:38:34 DISKSVMSMASTER:CF11A.SRCJTRUNC.B32; 1 — 3 
6 14 Ac D 3 MOVL LAST_COUNT, RP_COUNT 
4 AC D 1$: MOVL FI6, 
8 52 0 2s: CMPL MAP_POINTER, MAP_END 
41 iE BGEQU $ 
57 01 As 9A MOVZBL (MAP_POINTER), COUNT 
5 6 INCL OUNT 
55 02 Ag MOVZWL (MAP_POINTER), LBN 
55 08 10 § F ¢ INSV (MAP_POINTER), #16, #8, LBN 
aot) a 
01 A2 56 84 ; ik SUBB3 #1, RP_COUNT, 1(MAP_POINTER) 
0 1 QO04A BRB 4 
D4 0004C 3$ CLRL (MAP_POINTER) 
08 a3 3 ie: SUBB2 #2, B(MAP_AREA) 
oc Oc ac € Boe 4$ BLBC DEALLOCAT 
7E 7 28 ge 0056 L3. RP_COUN pOUNT « (SP) 
6645 9F O005A PUSHAB (RP_COUNT) 
0000G CF 02 FB 80828 CALL #2, RETURN BLOCKS 
50 57 18 <A& C1 643 5$ ADDL 24(R4), COONT, RO 
18 AG 50 56 C3 0006 SUBL RP_COUNT, RO, 24(R4) 
56 D4 Baber CLRL RP_COUNT 
52 04 CO O006E ADDL2 #4, MAP_POINTER 
BA 11 00071 BRB 2$ 
04 00073 6$ RET 
; Routine Size: 116 bytes, Routine Base: S$CODE$S + O1AF 
408 0720 1 
409 8353 1 END 
410 0722 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: $CODES 547 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
: eceecece Symbols eocecece Pages Processing 
: File Total Loaded Percent Mapped Time 
; _$255$D0UA28: CSYSLIBILIB.L32;1 18619 29 0 1000 00:02.0 


1 Bliss- “74 » 
WMRHASTER SEE Tin SReITRUNC.B32;1" 2%" ch 


iSseoct9ge 91:30:14 yas 


X-1 
Sk$ 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$: TRUNC/OBJ=OBJ$:TRUNC MSRC$: TRUNC/UPDATE=(ENH$: TRUNC) 
size: 547 at 3 0 data bytes 


pe 
ab ed T 
tty Ah Min: 4 
Seay Nok gag 14811 
ry Use ed: 184 pages 
Compilation Complete 
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